#include <WinTen.h>
#include <Windows.h>
#include <ClipApi.h>

CLIPPER WScroll()
{
   HWND hWnd  = _parni( 1 );
   WORD wRows = _parni( 2 );
   HDC hDC    = GetDC( hWnd );
   TEXTMETRIC tm;

   GetTextMetrics( hDC, &tm );
   ScrollWindow( hWnd, 0, -( tm.tmHeight * wRows ), 0, 0 );
   ReleaseDC( hWnd, hDC );
}

CLIPPER WBrwScroll()
{
   HWND hWnd  = _parni( 1 );
   WORD wRows = _parni( 2 );
   HDC hDC    = GetDC( hWnd );
   RECT rct;
   TEXTMETRIC tm;

   GetClientRect( hWnd, &rct );
   GetTextMetrics( hDC, &tm );

   rct.top += tm.tmHeight;
   ScrollWindow( hWnd, 0, -( tm.tmHeight * wRows ), 0, &rct );
   ReleaseDC( hWnd, hDC );
}

